home *** CD-ROM | disk | FTP | other *** search
/ Corel Professional Photos 12: Underwater Reefs / Corel Professional Photos - 1994 - 012 - Underwater Reefs.ISO / qtour / setup.mst < prev    next >
Text File  |  1993-06-07  |  6KB  |  222 lines

  1. '**************************************************************************
  2. '*                      Corel QuickTour 1.0 Setup (photopaint edition)
  3. '**************************************************************************
  4.  
  5. '$INCLUDE 'setupapi.inc'
  6. '$INCLUDE 'mscpydis.inc'    ''System
  7. '$INCLUDE 'msdetect.inc'    ''Detects Avalilable Disk Space
  8.  
  9. ''Dialog ID's
  10. CONST WELCOME       = 100
  11. CONST ASKQUIT       = 200
  12. CONST DESTPATH      = 300
  13. CONST EXITFAILURE   = 400
  14. CONST EXITQUIT      = 600
  15. CONST EXITSUCCESS   = 700
  16. CONST OPTIONS       = 800
  17. CONST APPHELP       = 900
  18. CONST APPHELP2      = 1500
  19. CONST APPHELP3      = 1700
  20. CONST CHECK         = 2500
  21. CONST TOOBIG        = 6300
  22. CONST BADPATH       = 6400
  23.  
  24. ''Bitmap ID
  25. CONST LOGO = 1
  26.  
  27. ''Disk Sizes
  28.  
  29. GLOBAL File1
  30. GLOBAL File2
  31. GLOBAL WantedDiskSize&
  32.  
  33. ''File Types
  34. GLOBAL DEST$        ''Default destination directory.
  35. GLOBAL WINDRIVE$    ''Windows Drive Letter.
  36. GLOBAL OPTCUR$      ''Option selection from option dialog.
  37. GLOBAL CHECKSTATES$
  38. GLOBAL RUNTIME$
  39. GLOBAL AVITOOLS$
  40. GLOBAL MDKTOOLS$
  41. GLOBAL TOOLS$
  42.  
  43. SrcDir$ = GetSymbolValue("STF_SRCDIR")
  44. WinDir$ = GetWindowsDir()
  45. WinSysDir$ = GetWindowsSysDir()
  46.  
  47.  
  48. DECLARE FUNCTION MakePath (szDir$, szFile$) AS STRING
  49.  
  50. INIT:
  51.     CUIDLL$ = "mscuistf.dll"            ''Custom user interface dll
  52.     HELPPROC$ = "FHelpDlgProc"          ''Help dialog procedure
  53.  
  54.     MajorVer% = GetWindowsMajorVersion()
  55.     MinorVer% = GetWindowsMinorVersion()
  56.  
  57.     IF  MajorVer% < 3 OR (MajorVer% = 3 AND MinorVer% < 10) THEN
  58.     i% = DoMsgBox("Microsoft Windows version 3.10 or greater is required for this software.  Please upgrade your version of Windows.", "Installation Problem", MB_OK+MB_TASKMODAL+MB_ICONHAND)
  59.     END
  60.     END IF
  61.  
  62.     SetBitmap CUIDLL$, LOGO
  63.     SetTitle "Corel QuickTour Installation"
  64.  
  65.     szInf$ = GetSymbolValue("STF_SRCINFPATH")
  66.     IF szInf$ = "" THEN
  67.     szInf$ = GetSymbolValue("STF_CWDDIR") + "SETUP.INF"
  68.     END IF
  69.     ReadInfFile szInf$
  70.  
  71.     WINDRIVE$ = MID$(WinDir$, 1, 1)
  72.     cdromdrive$ = MID$(SrcDir$, 1, 3)
  73.     DEST$ = WINDRIVE$ + ":\corelcd\qtour"
  74.  
  75. WELCOME:
  76.     sz$ = UIStartDlg(CUIDLL$, WELCOME, "FInfoDlgProc", APPHELP, HELPPROC$)
  77.     IF sz$ = "CONTINUE" THEN
  78.     UIPop 1
  79.     ELSE
  80.     GOSUB ASKQUIT
  81.     GOTO WELCOME
  82.     END IF
  83.  
  84. GETPATH:
  85.     SetSymbolValue "EditTextIn", DEST$
  86.     SetSymbolValue "EditFocus", "END"
  87. GETPATHL1:
  88.     sz$ = UIStartDlg(CUIDLL$, DESTPATH, "FEditDlgProc", APPHELP, HELPPROC$)
  89.     DEST$ = GetSymbolValue("EditTextOut")
  90.  
  91.     IF sz$ = "CONTINUE" THEN
  92.     IF IsDirWritable(DEST$) = 0 THEN
  93.         GOSUB BADPATH
  94.         GOTO GETPATHL1
  95.     END IF
  96.     UIPop 1
  97.     ELSEIF sz$ = "REACTIVATE" THEN
  98.     GOTO GETPATHL1
  99.     ELSEIF sz$ = "BACK" THEN
  100.     UIPop 1
  101.     GOTO WELCOME
  102.     ELSE
  103.     GOSUB ASKQUIT
  104.     GOTO GETPATH
  105.     END IF
  106.  
  107. ClearCopyList
  108.  
  109.     WantedDiskSize&=1689000
  110.  
  111.     DiskSize&=GetFreeSpaceForDrive(WINDRIVE$)
  112.  
  113.     If WantedDiskSize& > DiskSize& then
  114.         GOSUB TOOBIG
  115.         ERROR STFQUIT
  116.     EndIf
  117.  
  118. '' Setting RUNTIME files to be copied
  119.  
  120.        CreateDir DEST$, cmoNone
  121.        AddSectionFilesToCopyList "MPlayer", SrcDir$, WinDir$
  122.        AddSectionFilesToCopyList "VfW Runtime", SrcDir$, WinSysDir$
  123.        AddSectionFilesToCopyList "AVICodecs", SrcDir$, WinSysDir$
  124.        AddSectionFilesToCopyList "qtdir", SrcDir$, DEST$
  125.        AddSectionFilesToCopyList "qtsystem", SrcDir$, WinSysDir$
  126.  
  127. CopyFilesInCopyList
  128.  
  129. ''Updating WIN.INI and SYSTEM.INI
  130.  
  131.        CreateIniKeyValue WinDir$ + "system.ini", "Drivers", "VIDC.MSVC", "msvidc.drv", cmoOverwrite
  132.        CreateIniKeyValue WinDir$ + "system.ini", "Drivers", "VIDC.RT21", "indeo.drv", cmoOverwrite
  133.        CreateIniKeyValue "WIN.INI", "mci extensions", "avi", "AVIVideo", cmoOverwrite
  134.        CreateIniKeyValue WinDir$ + "system.ini", "mci", "AVIVideo", "mciavi.drv", cmoOverwrite
  135.        CreateIniKeyValue "WIN.INI", "QuickTour", "cdrom", cdromdrive$, cmoOverwrite
  136.  
  137. ' ******* Alan, modify this section for the program group and icon
  138.  
  139.        CreateProgmanGroup "Corel QuickTour", "", cmoNone
  140.        ShowProgmanGroup  "Corel QuickTour", 1, cmoNone
  141.        CreateProgmanItem "Corel QuickTour", "QuickTour", DEST$+"\qtour.exe" , "", cmoOverwrite
  142.     
  143. Run ("regedit.exe /s " + MakePath(WinDir$, "mplayer.reg"))
  144.  
  145. Run ("profdisp")
  146.  
  147. QUIT:
  148.     ON ERROR GOTO ERRQUIT
  149.  
  150.     IF ERR = 0 THEN
  151.     dlg% = EXITSUCCESS
  152.     ELSEIF ERR = STFQUIT THEN
  153.     dlg% = EXITQUIT
  154.     ELSE
  155.     dlg% = EXITFAILURE
  156.     END IF
  157. QUITL1:
  158.     sz$ = UIStartDlg(CUIDLL$, dlg%, "FInfo0DlgProc", 0, "")
  159.     IF sz$ = "REACTIVATE" THEN
  160.     GOTO QUITL1
  161.     END IF
  162.     UIPop 1
  163.  
  164.     END
  165.  
  166. ERRQUIT:
  167.     i% = DoMsgBox("Setup sources were corrupted, call the included support number", "Setup Problem", MB_OK+MB_TASKMODAL+MB_ICONHAND)
  168.     END
  169.  
  170. ASKQUIT:
  171.     sz$ = UIStartDlg(CUIDLL$, ASKQUIT, "FQuitDlgProc", 0, "")
  172.  
  173.     IF sz$ = "EXIT" THEN
  174.     UIPopAll
  175. ''        ERROR STFQUIT
  176.     END
  177.     ELSEIF sz$ = "REACTIVATE" THEN
  178.     GOTO ASKQUIT
  179.     ELSE
  180.     UIPop 1
  181.     END IF
  182.     RETURN
  183.  
  184. TOOBIG:
  185.     sz$ = UIStartDlg(CUIDLL$, TOOBIG, "FInfo0DlgProc", 0, "")
  186.     IF sz$ = "REACTIVATE" THEN
  187.     GOTO TOOBIG
  188.     END IF
  189.     UIPop 1
  190.     RETURN
  191.  
  192. BADPATH:
  193.     sz$ = UIStartDlg(CUIDLL$, BADPATH, "FInfo0DlgProc", 0, "")
  194.     IF sz$ = "REACTIVATE" THEN
  195.     GOTO BADPATH
  196.     END IF
  197.     UIPop 1
  198.     RETURN
  199.  
  200. '**
  201. '** Purpose:
  202. '**     Appends a file name to the end of a directory path,
  203. '**     inserting a backslash character as needed.
  204. '** Arguments:
  205. '**     szDir$  - full directory path (with optional ending "\")
  206. '**     szFile$ - filename to append to directory
  207. '** Returns:
  208. '**     Resulting fully qualified path name.
  209. '*************************************************************************
  210. FUNCTION MakePath (szDir$, szFile$) STATIC AS STRING
  211.     IF szDir$ = "" THEN
  212.     MakePath = szFile$
  213.     ELSEIF szFile$ = "" THEN
  214.     MakePath = szDir$
  215.     ELSEIF MID$(szDir$, LEN(szDir$), 1) = "\" THEN
  216.     MakePath = szDir$ + szFile$
  217.     ELSE
  218.     MakePath = szDir$ + "\" + szFile$
  219.     END IF
  220. END FUNCTION
  221.  
  222.